(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 17181, 414] NotebookOptionsPosition[ 16682, 393] NotebookOutlinePosition[ 17046, 409] CellTagsIndexPosition[ 17003, 406] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ "The parameters hare are ", StyleBox["n ", "Input"], "and ", StyleBox["r, ", "Input"], "the first one is the number of vertices and the second is the degree of \ each vertex. The program will work, however, for any sequence ", StyleBox["d", "Input"], ", the only thing you will need to type this sequence manually." }], "Text", CellChangeTimes->{{3.5910983467146645`*^9, 3.5910984380818906`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"r", "=", "3"}], ";"}], RowBox[{"(*", RowBox[{"the", " ", "degree", " ", "of", " ", "each", " ", "vertex"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "50"}], ";", " ", RowBox[{"(*", RowBox[{"number", " ", "of", " ", "vertices"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5910984438122187`*^9, 3.5910984794662576`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"d", "=", RowBox[{"Table", "[", RowBox[{"r", ",", RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.590976627154853*^9, 3.590976640792633*^9}, { 3.59097738517721*^9, 3.5909773964328537`*^9}, {3.590977444988631*^9, 3.5909774535581207`*^9}, {3.590977571956893*^9, 3.5909776280170994`*^9}, { 3.5909777192883196`*^9, 3.590977755400385*^9}, {3.591002227386839*^9, 3.5910022290089316`*^9}, {3.5910554194085484`*^9, 3.591055419665563*^9}, { 3.5910554707714863`*^9, 3.5910554839302387`*^9}, {3.591055995140478*^9, 3.5910560515217032`*^9}, {3.591066843260581*^9, 3.591066844309641*^9}, { 3.591066912083517*^9, 3.5910669128705626`*^9}, 3.5910669713709087`*^9, { 3.5910983321558323`*^9, 3.591098343166462*^9}, {3.5910984822504168`*^9, 3.591098488050749*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", " ", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Partition", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"RandomSample", "[", RowBox[{"Flatten", " ", "@", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"d", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "d", "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}], "/.", RowBox[{ RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"x", "\[Rule]", "y"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"VertexLabeling", "\[Rule]", "True"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.5909769407777915`*^9, 3.5909770128269124`*^9}, { 3.5909770719762955`*^9, 3.590977268464534*^9}, {3.5909773026634903`*^9, 3.5909773070577416`*^9}, {3.5909773425997744`*^9, 3.5909773523073297`*^9}, { 3.5910555751694574`*^9, 3.591055592822467*^9}, {3.5910984914669437`*^9, 3.5910985851723037`*^9}}], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsComplexBox[CompressedData[" 1:eJw1kns01HkfxzXGJcz4/Qa/WW0SoTC7cqnVWn3fWqVILnlyS01KbVFulak8 krIuTUlCUgmVUklu6Y4lihiXbpSalAcrklFItZ5znudzzvt8znm///l8Xuet 5x/sHsCSk5MLm9R/t+W8e1pedSx8uD3Kf/07Dwu3xm1hNQyTNcLwpZFaFD7y TXn5zDhZ2DYYtSpXAQacZVX9sh6y60oK2zhaDSKVNy3vzNXR4hsrbluggORN pwJ07BThhZuRiroqsLDM2Z7XwMUyu00LygI5eGVlltosUoZQZ8qCjmsKGDTq /bh/+hjpt7nqEfxMFcejOk1Cb3SRUCrLftFzLsZvXNdVLuNBTIx1EwtVwHYv 0LLy4WFOdN3RcUV5pFEOU0MTFCEbj/UVnVKCeVlVpPsKCjO6xiw9YjRg3tWa mu4/FeaeO0c2PNTAhvKRO6sMeDh+VrpZ1UETT9bucpHZcFBxa6SeJa+B7rMP 6iuKxkn2ULBMuXWcBCbF7ncOkoPBPONXQXmfyIrGgYFvK1kQFgX1S+IHyDqH vROsBFUcbfQI5Rt+JTF6xuULIyjI/W+OH3v/u6McD65NpnNq2E/J//1ZIumV 5Ykq2Barrn5kDw+HeIMjfR3qEKeuM+xyVkOuuTp1/5ImBr0Xjrl/lofIyWpr oY4mXFzc/j1LQUYEDmHksA4Pf7iLX0e8ojHybp/qkmkTJKzRjv12kRwsJHoN UzXUMSXn4Bo3PxmpHN/xJOsCBz8frKhTFVFY2WbHUTCQEQRZbtjxmgUfx6nd TveVcbpO9euMKi4Sn5hV5sxnoVhQGt7gqAjueqHFdFcKmxRy+/V71HD73Op7 n5N7iLBSrSBsVgW5rL89frhICR7eKVMd+obIutTeI6P+XwjVElJs5/aWJD03 2lX4qxJmPYsvzMcIMVWJCu0RKqFode3G6q/fCITvYkT1cujbGqGdr8dg5/je wLEFPDjvHPiQKuTDPL60nBOghpBYg2jXlVrYY7YxM3sWGyeaW6I4XSxoF0/r 7K5Sg8nnMf3/nJ6CkTUFaZk/sGFftt7FR9hDrt/s/lBlPwVURrDBuUIagV7f bftmKiMuLdru+dAE0VQ/UBpkMkSqYtdbpyjIY/FdS7fEyfudpAqnbNMojJJ3 l+wVL5Cy9qbav05T6I94sc3fv4Ac4UkP3sybzI3COi46FZGMoTpt3WsUznPm /pziVkrmuF/aO3CTwq9ho4fG7crJ7meCfMMaCvaGy/myH2+RpPrNAZVNFJYm SQZOdN4hEzM/+91tp2DcGFcdb19BsnpEZp8iaDxUHFQVejaTfovgYdf9NBa4 nze8/aWZ5M3YO6yQRMP7gLZpbkYLOTNb/QCdSeOkyczMrrmt5LTAvzM4j8a9 eT4qKypbyfLY+3o6JTS4jzkWpY5txMbmkYdWJY2NLt7f3je0ETE7YaNHI438 jSWZTQ6PyeFrh1KtLlI4k7iz1qspk7zevSwvvIxCyPeUFTfuZhPJXNf2wL8o WLcMFu6VnCORCSU62hIKhQ3igfIf88mew0qiiBcU6gz9/lDLKiDb09OV9/dM 8jNdJou7fI2Y7c9TtpZR2C7TUjEwKCGRj041HP1OQaA/HHKstIzopuqefniS RpSk6eCUmkdE3Hc5rXbyH5bn4LPfpjWR7Je9buuLaLDve+nX2UqIbH1g5Inb NGqKrhxYIpOQmGrnN5vv0+irz1otLGwm4tx5IY1NNNIXu1xrD20hAR1LrGqe 0fCEa7vIupVI2qi1TlIaHrOvHp2QbyMvWH+fpPwYhN/ylf/0lIY0+cGBmCAG kXLS8yF3aOj9+TaUvYeBMPy7dkAOjW7HzqfJ8Qx4xPNpx580zoywIoxSGXiO DUW/3ELDdekpv7tnGIiqDr0MW0HjB1j2/usSg09vXjw+a06jouFibW8JA9Pq m6GRmjR6Tqq57bHio331UIhkkAupYdE+ZVs+dkw3sX5ZwoVJgtkqsT0frByB is8uLrKWrg1nO/HRcXVTkrctF/o5Ki3bXPmYH380fUCOi2BP8b0HHnwk6tdq CKo5iPno1anhxUdUbzJlGMdBq2+Q0XIfPv5+OXq1fxkHG+LHuoZnM8hw6RxM qKVxfUhNIDBhIHmQfO/9BRoPxM8dd/7EwPGnz7ZbEmkwi3ytm80ZbN9NTygH 0TiRqZhu8wuD7G6j6Fbnyd75zi8ptmVweGv1olYzGl53i+N/WczAo7DmEs2b 5OPgfaPamYEe5a9+fLIXIv7tRaseMaiVkctKhVzonbXQ63vCwPz6l66yHVz0 ZNZd3idlIBjNaJv2GxcZA/4p2u8ZbEtsPrRYngv3jDiLgjEGY98UpUvrOeCv 2XfcRomP1WllvvOPceDlfjL2jhYfhpHDdrprOPCT7t5qZjjJS/FbvKYxB/8A WicX7w== "], { {RGBColor[0.5, 0., 0.], LineBox[{{1, 2}, {1, 26}, {1, 45}, {2, 31}, {2, 39}, {3, 4}, {3, 13}, { 4, 28}, {5, 6}, {6, 9}, {7, 8}, {7, 11}, {7, 17}, {8, 33}, {8, 50}, { 9, 10}, {10, 28}, {11, 12}, {12, 44}, {13, 34}, {13, 35}, {14, 15}, { 15, 27}, {16, 17}, {16, 26}, {18, 3}, {18, 49}, {18, 50}, {19, 20}, { 19, 49}, {20, 36}, {21, 12}, {21, 32}, {21, 41}, {22, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 23}, {22, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 23}, {22, 36}, { 24, 4}, {24, 37}, {25, 11}, {25, 14}, {26, 14}, {27, 28}, {27, 17}, { 29, 5}, {29, 36}, {30, 31}, {31, 40}, {32, 23}, {32, 34}, {33, 30}, { 33, 46}, {34, 48}, {35, 15}, {35, 30}, {37, 10}, {37, 47}, {38, 20}, { 38, 47}, {38, 39}, {39, 24}, {40, 9}, {41, 47}, {41, 40}, {42, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 43}, {42, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 43}, {42, 16}, {43, 44}, {44, 29}, {45, 46}, {45, 6}, {46, 19}, {48, 25}, {48, 5}, {49, 50}}]}, {InsetBox[ FrameBox["22", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 1], InsetBox[ FrameBox["10", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 2], InsetBox[ FrameBox["15", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 3], InsetBox[ FrameBox["37", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 4], InsetBox[ FrameBox["47", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 5], InsetBox[ FrameBox["38", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 6], InsetBox[ FrameBox["33", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 7], InsetBox[ FrameBox["2", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 8], InsetBox[ FrameBox["6", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 9], InsetBox[ FrameBox["25", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 10], InsetBox[ FrameBox["29", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 11], InsetBox[ FrameBox["19", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 12], InsetBox[ FrameBox["43", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 13], InsetBox[ FrameBox["12", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 14], InsetBox[ FrameBox["26", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 15], InsetBox[ FrameBox["4", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 16], InsetBox[ FrameBox["35", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 17], InsetBox[ FrameBox["28", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 18], InsetBox[ FrameBox["31", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 19], InsetBox[ FrameBox["50", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 20], InsetBox[ FrameBox["24", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 21], InsetBox[ FrameBox["27", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 22], InsetBox[ FrameBox["16", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 23], InsetBox[ FrameBox["42", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 24], InsetBox[ FrameBox["32", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 25], InsetBox[ FrameBox["49", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 26], InsetBox[ FrameBox["40", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 27], InsetBox[ FrameBox["13", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 28], InsetBox[ FrameBox["48", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 29], InsetBox[ FrameBox["21", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 30], InsetBox[ FrameBox["1", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 31], InsetBox[ FrameBox["9", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 32], InsetBox[ FrameBox["8", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 33], InsetBox[ FrameBox["7", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 34], InsetBox[ FrameBox["3", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 35], InsetBox[ FrameBox["20", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 36], InsetBox[ FrameBox["34", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 37], InsetBox[ FrameBox["11", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 38], InsetBox[ FrameBox["36", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 39], InsetBox[ FrameBox["17", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 40], InsetBox[ FrameBox["44", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 41], InsetBox[ FrameBox["5", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 42], InsetBox[ FrameBox["14", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 43], InsetBox[ FrameBox["39", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 44], InsetBox[ FrameBox["30", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 45], InsetBox[ FrameBox["23", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 46], InsetBox[ FrameBox["18", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 47], InsetBox[ FrameBox["45", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 48], InsetBox[ FrameBox["41", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 49], InsetBox[ FrameBox["46", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 50]}}], Annotation[#, VertexCoordinateRules -> CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAMzW/FVjIAkDwvPgX4EMSQD5th2oC zPM/XmBzSHwVEEDyFysSqhb6Pz7U735WowVAJA1Jwuz06D95rZMEKYAMQHgK 4tLlMQ9A0luFjNQ5BUCRZ51lHUEGQFhAunwGHwpAMjOidKfMDkBJQWc5tmsN QN80L5XReAhAYB0BOduxBUDvJunygxz5P+w7r1Rv2AtAmH7eKnG54z9xEJ9E QtkOQPq5tx8IthJAjD8pH4qwCkAEUq4VNFoSQCiAyJL6BgNAlhBHCXGJBkD0 +oVbeJ0HQDG2wnxSThBAHuP5M1SCE0Ax49OVl2IJQDFXdvVkyhNAZLj1vVYk EkCYpOFpC0cUQNZfeU/0Ow1AwLv1ywIDE0DmpMnLwLL6P6Hxb/QI0/o/a4+F g01sAEAkNSnfbKf2P07O7u7+UwJAYLJs7NCI7j9hR3/8AokLQJLOVHEXJf0/ giEpuD53EEAAAAAAAAAAAJiU7UNKABJAUM8rKMUE1z8AAAAAAAAAACN44a1M igpAboUPD5B7EkCNEu/16tsPQIyVYSXjTQxAozEPEMarFEDvWT75UvcDQHhL NG2wHRRAT09RfSMF9D8sR3I/jh0SQGhSjOB33xFA9eWBC0Ya/D9yzkEE5EIA QDLQIcwJEw9AAaKLXlFd9D/B+nXWn6gNQC6LwMgLeBBAU9RBDQUk9D9AbDNk deACQFpKCeZLxghAnsgL/R7CDkCK1i/BojYCQLMstXPMSgZADmNgMhxQEEBn BaPsIugMQLylXL/3keg/YMEMrnIjwD+sInSI87IHQFRZkwlH6vE/YZXpkPhi +z8Q0nCzQVHkP4/ZJnmwOgdAI9iIsKpA9T8rCn5x6GAHQLJcx2bE/f4/QGDl gnjLAEDqbXcZqiEWQHb6f2v5ORJATXbu8JVgF0AxiLW4DWUMQHCFJIBQUxVA ey9mm6EjBECa0dJ+DeMCQBmzGt7mwgxAKvf5IueeAUD1Xq6WmxgEQES2Y09a YOg/t7rm8MJEAUAQmW8kpbARQGtY/z3qIAhAh5aAQdnx/D8UD4S1bCrxP8KF YziTBQNARb4zUYpi+z/ZE1I/ "]]& ], AspectRatio->Automatic, FrameTicks->None, ImageSize->{853., Automatic}, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{ 3.5910985923257127`*^9, {3.591098633674078*^9, 3.5910986479358935`*^9}}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.591098571912545*^9, 3.591098571936547*^9}}] }, WindowSize->{1904, 945}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 420, 10, 31, "Text"], Cell[980, 32, 408, 11, 52, "Input"], Cell[1391, 45, 852, 15, 31, "Input"], Cell[CellGroupData[{ Cell[2268, 64, 1380, 33, 132, "Input"], Cell[3651, 99, 12920, 288, 769, "Output"] }, Open ]], Cell[16586, 390, 92, 1, 31, InheritFromParent] } ] *) (* End of internal cache information *)